home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / Personal Paint v4.0 (1994)(Cloanto)(M3)(Disk 1 of 2)[WB].7z / Personal Paint v4.0 (1994)(Cloanto)(M3)(Disk 1 of 2)[WB].adf / PPaint_Prefs / PP_Locale / PP_DiskReset next >
Text File  |  1993-12-02  |  4KB  |  110 lines
  1. ; Copyright (C) Cloanto (R) 1992, 1993  All Rights Reserved  Reproduction Prohibited
  2.  
  3.  
  4. ; Reset Personal Paint Disk Name
  5.  
  6. Assign >NIL: " PPaint:" EXISTS
  7. If NOT WARN
  8.    Relabel >NIL: " PPaint:" PPaint
  9.    EndIf
  10.  
  11. Assign >NIL: "Copy of PPaint:" EXISTS
  12. If NOT WARN
  13.    Relabel >NIL: "Copy of PPaint:" PPaint
  14.    EndIf
  15.  
  16. Assign >NIL: Copy_of_PPaint: EXISTS
  17. If NOT WARN
  18.    Relabel >NIL: Copy_of_PPaint: PPaint
  19.    EndIf
  20.  
  21. PPaint:c/Print >RAM:PP_WriteOK ";"
  22. Copy >NIL: RAM:PP_WriteOK PPaint:PPaint_Prefs/PP_Locale
  23. Delete >NIL: RAM:PP_WriteOK
  24. If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_WriteOK
  25.    PPaint:c/Print "Error during Personal Paint disk configuration."
  26.    Wait 3 SECS
  27.    Skip End
  28.    EndIf
  29.  
  30.  
  31. ; Reset Personal Paint Installation Local Texts and Commands
  32.  
  33. If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_ENG
  34.    Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.eng
  35. EndIf
  36.  
  37. If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_DEU
  38.    Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.deu
  39. EndIf
  40.  
  41. If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_ITA
  42.    Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.ita
  43. EndIf
  44.  
  45. If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_FRA
  46.    Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.fra
  47. EndIf
  48.  
  49. If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_SWE
  50.    Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.swe
  51. EndIf
  52.  
  53.  
  54. ; Reset Personal Paint User Interface Language Preferences
  55.  
  56. PPaint:c/Print > PPaint:PPaint_Prefs/Startup_A.set "PPAINT SETTINGS*N; Country and Language Dependent Settings*N"
  57.  
  58.  
  59. Delete >NIL: PPaint:PPaint_Prefs/PP_Locale/PP_SET_#?
  60.  
  61.  
  62. ; Set Personal Paint 1.x/2.x-3.x Icons
  63.  
  64. Version >NIL: graphics.library 36
  65. If WARN
  66.   If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13
  67.     PPaint:c/Print >RAM:MEMO_NEWCOL ";"
  68.     CD PPaint:PPaint_Icons_1
  69.   EndIf
  70. Else
  71.   If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13
  72.     PPaint:c/Print >RAM:MEMO_NEWCOL ";"
  73.     CD PPaint:PPaint_Icons_2
  74.   EndIf
  75. EndIf
  76.  
  77. If EXISTS RAM:MEMO_NEWCOL
  78.   Copy PPaint:c/CopyIcon RAM:
  79.   RAM:CopyIcon >NIL: -r def_Disk PPaint:Disk
  80.   RAM:CopyIcon >NIL: -r def_PPaint PPaint:PPaint
  81.   RAM:CopyIcon >NIL: -r def_Config PPaint:English
  82.   RAM:CopyIcon >NIL: -r def_Config PPaint:Deutsch
  83.   RAM:CopyIcon >NIL: -r def_Config PPaint:Italiano
  84.   RAM:CopyIcon >NIL: -r def_InstallPPaint PPaint:InstallPPaint
  85.   RAM:CopyIcon >NIL: -r def_PPaint.man PPaint:PPaint.man
  86.   RAM:CopyIcon >NIL: -r def_PPaint_PS PPaint:PPaint_PS
  87.   RAM:CopyIcon >NIL: -r def_CloantoAudio PPaint:CloantoAudio
  88.   RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Prefs
  89.   RAM:CopyIcon >NIL: -r def_Settings PPaint:PPaint_Prefs/Startup_1.set
  90.   RAM:CopyIcon >NIL: -r def_Settings PPaint:PPaint_Prefs/Startup_2.set
  91.   RAM:CopyIcon >NIL: -r def_UIText PPaint:PPaint_Prefs/UIText.#?
  92.   RAM:CopyIcon >NIL: -r def_Brush PPaint:PPaint_Prefs/UIColors.#?
  93.   RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Tools
  94.   RAM:CopyIcon >NIL: -r def_AskAssign PPaint:PPaint_Tools/AskAssign
  95.   RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Icons_1
  96.   RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Icons_2
  97.  
  98.   Version >NIL: graphics.library 36
  99.   If WARN
  100.     PPaint:c/Print >PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13 ";"
  101.   Else
  102.     Delete PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13 QUIET
  103.   EndIf
  104.  
  105.   Delete RAM:CopyIcon QUIET
  106.   Delete RAM:MEMO_NEWCOL QUIET
  107. EndIf
  108.  
  109. Lab End
  110.